home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pctecap.arc / GETPRINT.PAS < prev    next >
Pascal/Delphi Source File  |  1986-03-15  |  256b  |  13 lines
  1. (*$INCLUDE:'environ.int'*)
  2.  
  3. program getprint (input, output);
  4. uses environment;
  5.  
  6. var printer:lstring(127);
  7.  
  8. begin
  9.   getparameter ('PRINTER', printer);
  10.   if (printer = null) then printer := 'LPT1';
  11.   writeln (printer);
  12. end.
  13.